﻿Public Class frmPublish
    Public Property Selection As String
    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
        Dim t As String = ""
        If chkCreateArchive.Checked = True Then t &= "1*"
        If chkUploadFiles.Checked = True Then t &= "2*"
        If chkPublishDefinitions.Checked = True Then t &= "3*"
        Selection = t
        Me.Close()
    End Sub
End Class